www.gusucode.com > 红色大方的企业网站源码 1 > 红色大方的企业网站源码 1.0/qiye_red/ShowNews.asp
<!--#Include File="inc/Check_Sql.asp"--> <!--#include file="inc/conn.asp"--> <!-- #include file="inc/config.asp" --> <!--#include file="inc/Function.asp"--> <!-- #include file="Head.asp" --> <%owen=request("id")%> <script language="JavaScript" type="text/JavaScript"> function fontZoom(size){ document.getElementById('fontZoom').style.fontSize=size+'px' } </SCRIPT> <SCRIPT language=JavaScript> var currentpos,timer; function initialize() { timer=setInterval("scrollwindow()",50); } function sc(){ clearInterval(timer); } function scrollwindow() { currentpos=document.body.scrollTop; window.scroll(0,++currentpos); if (currentpos != document.body.scrollTop) sc(); } document.onmousedown=sc document.ondblclick=initialize </SCRIPT> <% id=cstr(request("id")) Set rsnews=Server.CreateObject("ADODB.RecordSet") sql="update news set hits=hits+1 where id="&id conn.execute sql sql="select * from news where id="&owen rsnews.Open sql,conn,1,1 title=rsnews("title") if rsnews.eof and rsnews.bof then response.Write("数据库出错") else %> <table width="1000" height="579" border="0" align="center" cellpadding="0" cellspacing="0"> <tbody> <tr> <td width="265" height="563" valign="top" background="imgbsy/l1.jpg" ><table cellspacing="0" cellpadding="0" width="265" border="0"> <tbody> <tr> <td><img height="34" src="imgbsy/gg.jpg" width="265" /></td> </tr> <tr> <td valign="top" width="265" background="imgbsy/gg11.jpg" height="114"><table width="245" border="0"> <tbody> <tr> <td width="10"> </td> <td width="225"><marquee onmouseover="this.stop()" style="FONT-SIZE: 9pt; COLOR: #000000" onmouseout="this.start()" scrollamount="1" scrolldelay="50" direction="up" width="210" height="90"> <table bordercolor="#ffffff" cellspacing="0" cellpadding="0" width="210" align="center" border="0"> <tbody> <% set rs_news=server.createobject("adodb.recordset") sqltext4="select top 1 * from Affiche order by id desc" rs_news.open sqltext4,conn,1,1 %> <%i=0 do while not rs_news.eof%> <tr> <td valign="top"> <span class="px12"> 本站公告: <a href='#' onclick="javascript:window.open('Affiche.asp?ID=<%=rs_news("id")%>', 'newwindow', 'height=450, width=400, toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=no, status=no')" title='<%=cutstr(rs_news("title"),15)%>'><font color='#FF0000'><%=cutstr(rs_news("title"),15)%></font></a> </td> </tr> <%rs_news.movenext i=i+1 if i=6 then exit do loop rs_news.close %> </tbody> </table> </marquee></td> </tr> </tbody> </table></td> </tr> <tr> <td><img height="30" src="imgbsy/about1.gif" width="265" /></td> </tr> <tr> <td><img height="9" src="imgbsy/fbjx1_07.jpg" width="265" /></td> </tr> <tr> <td valign="top" background="imgbsy/fbjx1_08.jpg" ><table width="245" border="0"> <tbody> <% Set rslist = Server.CreateObject("ADODB.Recordset") sql="select BigClassName from BigClass_New order by BigClassID" rslist.open sql,conn,1,3 do while not rslist.eof %> <tr> <td width="49" height="25"><div align="right"><img height="4" src="imgbsy/d1.gif" width="4" /></div></td> <td class="px12-5" width="186"> <a href="NewsClass.asp?BigClass=<%=rslist("BigClassName")%>" class="px12-5"><%=rslist("BigClassName")%></a> </td> </tr> <tr> <td colspan="2" align="right"><table width="90%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="1" bgcolor="#EBEBEB"></td> </tr> </table> </td> </tr> <%rslist.movenext loop rslist.close set rslist=nothing %> </tbody> </table></td> </tr> <tr> <td><img height="9" src="imgbsy/fbjx1_10.jpg" width="265" /></td> </tr> <tr> <td><img height="37" src="imgbsy/con1.gif" width="265" /></td> </tr> <tr> <td valign="top" width="265" background="imgbsy/tu1.jpg"height="180" style="padding-top:5px;"> <!--#include file="qq.asp" --> </td> </tr> </tbody> </table></td> <td valign="top" background="imgbsy/fbjx1_04.jpg"><table cellspacing="0" cellpadding="0" width="735" border="0"> <tbody> <tr> <td width="735" height="38" background="imgbsy/title.gif" ><table width="735" height="38" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="173" class="about1">信息内容</td> <td width="388"> </td> <td width="174" class="about2"> 首页 >> 新闻中心</td> </tr> </table></td> </tr> <tr> <td valign="top" background="imgbsy/fbjx1_04.jpg" gcolor="#FFFFFF"><table cellspacing="0" cellpadding="0" width="700" align="center"> <tbody> <tr> <td class="px12" valign="top" style=" padding-top:20px; padding-left:10px; padding-right:15px; line-height:25px;"> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="50" align="center" class="about2"><%= rsnews("title") %></td> </tr> <tr align="center"> <td width="80%" height="30" style="BORDER-RIGHT: #e9e9e9 1px solid; BORDER-TOP: #e9e9e9 1px solid; BORDER-LEFT: #e9e9e9 1px solid; BORDER-BOTTOM: #e9e9e9 1px solid" >发布者:<%= rsnews("Author") %> 发布时间:<%=FormatDateTime(rsnews("AddDate"),2)%> 阅读:<font color="#FF0000"><%= rsnews("hits") %></font>次 </td> </tr> <tr> <td class="black" id="fontzoom"><br /> <%=rsnews("content") %></td> </tr> <tr align="right"> <td> </td> </tr> <tr align="right"> <td> </td> </tr> </table> <br /> <table width="95%" height="30" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td align="right"><a href="javascript:window.print()" class="link1">打印本页</a> || <a href="javascript:window.close()" class="link1">关闭窗口</a></td> </tr> </table> <% end if rsnews.close set rsnews=nothing %> </td> </tr> </tbody> </table></td> </tr> </tbody> </table></td> </tr> <tr valign="top"> <td background="imgbsy/m1.jpg" colspan="2"></td> </tr> <tr valign="top"> <td colspan="2" background="imgbsy/m1.jpg" bgcolor="#FFFFFF"></td> </tr> <tr valign="top"> <td colspan="2" height="16"><img height="16" src="imgbsy/b1.jpg" width="1000" /></td> </tr> </tbody> </table> <!--#include file="foot.asp" -->